home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / amigae21b.lha / Amiga_E_v2.1b / Sources / Other / Avail.e next >
Text File  |  1992-09-02  |  522b  |  21 lines
  1. /* Avail replacement */
  2. /* By EA van Breemen */
  3.  
  4. PROC main()
  5. DEF chip,fast,largest_chip,largest_fast,largest_total
  6.  
  7. chip:=AvailMem($2)
  8. fast:=AvailMem($4)
  9. largest_chip:=AvailMem($20002)
  10. largest_fast:=AvailMem($20004)
  11. largest_total:=IF largest_fast>largest_chip THEN largest_fast ELSE largest_chip
  12.  
  13. WriteF('Type  Available      Largest\n')
  14. WriteF('chip  \d[9]    \d[9]\n',chip,largest_chip)
  15. IF fast
  16.     WriteF('fast  \d[9]    \d[9]\n',fast,largest_fast)
  17.     WriteF('total \d[9]    \d[9]\n',chip+fast,largest_total)
  18. ENDIF
  19.  
  20. ENDPROC
  21.